home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pcdisksp.arc / PCTRDSP.MRG < prev   
Text File  |  1983-10-29  |  896b  |  29 lines
  1. 28 DEF SEG=&H1700
  2. 30 DEFINT A-Z
  3. 32 FOR I=&H100 TO &H15B
  4. 34 READ J
  5. 36 POKE I,J
  6. 38 NEXT
  7. 40 DATA 85,139,236,139,118,8,139,20,250,140,200,142
  8. 41 DATA 208,188,0,1,251,180,25,205,33,80,30,180,14
  9. 42 DATA 205,33,180,27,205,33,184,1,0,139,202,43,246
  10. 43 DATA 64,139,248,209,239,3,248,139,57,169,1,0,116
  11. 44 DATA 8,209,239,209,239,209,239,209,239,129,231,255,15
  12. 45 DATA 117,1,70,226,225,31,90,180,14,205,33,250,140,192
  13. 46 DATA 142,208,139,229,251,139,126,6,137,53,93,202,4,0
  14. 47 'Checksum=12074
  15. 3105 DSP$=LEFT$(FIL$,2)
  16. 3110 A=1:B=0:IF DSP$="A:" THEN A=0
  17. 3115 IF DSP$="a:" THEN A=0
  18. 3120 IF DSP$="C:" THEN A=2
  19. 3125 IF DSP$="c:" THEN A=2
  20. 3130 DEF SEG=&H1700:DSK=&H100
  21. 3135 CALL DSK(A,B):C!=1024*B
  22. 3140 PRINT DSP$;" Drive avail. space= ";C!
  23. 3145 RETURN
  24. 3643 GOSUB 3105
  25.  SEG=&H1700:DSK=&H100
  26. 3135 CALL DSK(A,B):C!=1024*B
  27. 3140 PRINT DSP$;" Drive avail. space= ";C!
  28. 3145 RETURN
  29. 3643 GOSU